0 REM "INIT.GR2001"-> ERZEUGT 'GR2001' 1 REM ******************************* 2 REM >> ZUERST MIT MSE EINGEBEN : ** 3 REM ** 1. 'GR2001TOKEN.90F0' UND ** 4 REM ** 2. 'GR2001.OBJ' ** 5 REM ** UND AUF DISK SICHERN ** 6 REM ******************************* 7 REM >> DANN : ** 8 REM ** 3. 'GRAFIK 2000' LADEN ** 9 REM ** 4. POKE43,1:POKE44,64 ** 10 REM ** 5. POKE16384,0: ** ** = BASICANFANG HOCHSETZEN ** 12 REM ** 6. INSTALLATIONSPRG. ** 13 REM ** 'INIT.GR2001' ** 14 REM ** EINGEBEN & STARTEN ** 15 REM ******************************* 16 REM ** 'INIT.GR2001' ===> ** 17 REM ** INSTALLATIONSPROGRAMM ** 18 REM ** FUER 'GR2001' ** 19 REM ** = ERWEITERTES UND ** 20 REM ** MODIFIZIERTES ** 21 REM ** 'GRAFIK 2000'(F.BRENDEL) ** 22 REM **---------------------------** 24 REM ** DR. HEINZ DOMES ** 26 REM ** JOSEF MARX STR. 13 ** 28 REM ** A - 8043 GRAZ ** 29 REM ** OESTERREICH ** 30 REM ** TEL:0316-367335 ** 31 REM ******************************* 32 REM >> HINWEIS :'GR2001' ** 33 REM ** WARTET NACH LADEN UND ** 34 REM ** STARTEN MIT 'RUN' AUF ** 35 REM ** DRUCK VON 'C='TASTE BZW. ** 36 REM ** 'SPACE'TASTE UND LADET ** 37 REM ** DANN PROGRAMM 'GRA1', ** 38 REM ** WELCHES EIN BELIEBIGES ** 39 REM ** RUMPFPRG. SEIN KANN MIT ** 40 REM ** MENUE ZUM NACHLADEN DES ** 41 REM ** GEWUENSCHTEN ARBEITSPRO- ** 42 REM ** GRAMMES. ** 43 REM >>>MIT 'POKE12481,133: ** 44 REM ** 'POKE12482,48' ** 45 REM ** AUSSCHALTEN DER ** 46 REM ** AUTOBOOT - FUNKTION. ** 50 REM ******************************* 100 IFA=1THEN900 105 IFA=2THEN1000 304 REM----------------------------->1<---------------------------------------- 305 REM-- "BASICZEILE & AUTOBOOT --- 306 [143]-------------------------------- 310 [129]M[178]2059[164]2094:[135]P:S[178]S[170]P: :[151]M,P:[130] 320 [139]S[179][177]1968[167][153]"DATA ERROR 1":[128] 350 [153]"1. OK" 400 [131]13,13,30,40,67,41,32,70,46,66,82,69,78,68,69,76,13,13,77,79,68,73,70 405 [131]73,69,68,58,32,68,79,77,69,83,13,13,13 449 [143]-------------------------------- 450 [129]M[178]2196[164]2198:[135]P:[151]M,P:[130] 480 [131]76,176,48 :[143] SPRUNG ->$30B0 AUTOBOOTROUTINE:LADET 'GRA1' 490 [151]3111,0: [151]3119,4 491 [143] ^RAHMEN,HINTERGR. ^AKT.FARBCODE :$0C27 :$0C2F 492 [143]-------------------------------- 500 : 504 [143]----------------------------->2<---------------------------------------- 505 [143]-- "MODIFIZIERTE LOAD ROUTINE - 506 REM-- LADET ABSOLUT NACH $E000 - 507 REM-------------------------------- 510 S=0:FORM=3512TO3523:READP:S=S+P: :POKEM,P:NEXT 520 IFS<>1418THENPRINT"DATA ERROR >2":END 550 PRINT"2. OK" 600 DATA169,0,133,185,170,160,224,76,143,158,0,0 700 : 704 REM----------------------------->3<---------------------------------------- 705 REM-- "MODIF. BEFEHLSTABELLE --- 706 [143]-------------------------------- 710 [139]A[178]0[167]A[178]1:[151]157,128:[147]"GR2001TOKEN.09F0",8,1 717 : 900 : 904 [143]----------------------------->4<---------------------------------------- 905 [143]-- "OBJECTCODE ERWEITERUNG --- 906 REM-- LADEN --- 907 REM-------------------------------- 910 IFA=1THENA=2:LOAD"GR2001.OBJ",8,1 : REM $2298 - $30E5 920 POKE157,0 1000 : 1004 REM----------------------------->5<--------------------------------------- 1005 REM-- "BASICANFANG & PRG ENDE --- 1006 [143]-- ZEIGER SETZEN & SAVE --- 1007 [143]------------------------------- 1020 [143]'GR2001' ENDE $30E5=12517 ** XL=229:XH=48 1070 [143]----------------------------->6<--------------------------------------- 1071 [143]--- PSEUDODIREKTMODUS: --- 1072 [143]------------------------------- 1130 [153]"LOADP(null)43,1:P(null)44,8:P(null)45,229:P(null)47,229:P(null)49,229:P(null)46,48:P(null)48,48:P(null)50,48" 1140 [151]2049,48:[151]2050,8 1150 [153]"SATN"[199](34)"GR2001"[199](34)",8" 1160 [151]631,19:[129]I[178]1[164]3:[151]631[170]I,13:[130]:[151]198,5:[128] 2000 [143]-----------------------------------------------------------------------